home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dbase / techs.zip / TECH22.ZIP / CURON.ASM < prev    next >
Assembly Source File  |  1985-11-01  |  1KB  |  40 lines
  1. ; Program ...: Curon.ASM
  2. ; Author ....: Steve Kurash and Olivier Biggerstaff
  3. ; Date ......: September 1, 1985
  4. ; Note ......: Turns the cursor on.
  5.  
  6.     .LFCOND            ; List false conditionals.
  7.     PAGE 60,132        ; Page length 60, width 132.
  8.  
  9. COM    EQU     0        ; Assemble as .BIN file.
  10. D3    EQU     1
  11.         
  12. CODESEG SEGMENT BYTE PUBLIC 'CODE'
  13. CURSON  PROC    FAR
  14.     ASSUME CS:CODESEG
  15.     IF    COM
  16.        ORG    100H        ; ORG at 100H for .COM file.
  17.     ENDIF
  18. START:  PUSH    AX        ; Save registers.
  19.     PUSH    CX
  20.     INT     11H        ; 
  21.     MOV    CX,0607H    ; Mask for color monitor.
  22.     AND    AL,10H        ; Check bit for color card.
  23.     JZ    CALL_ROM    ; JMP if color
  24.     MOV    CX,0B0CH    ; otherwise set up mask for
  25.                 ; monochrome.
  26. CALL_ROM:
  27.     MOV    AH,1        ; Set cursor type function.
  28.     INT    10H        ; Call ROM BIOS.
  29.     POP    CX        ; Restore registers.
  30.     POP    AX
  31.     IF    COM        
  32.        INT    20H        ; INT 20H if .COM file.
  33.     ELSE
  34.        RET            ; Far return to dBASE III.
  35.     ENDIF
  36. ;
  37. CURSON    ENDP
  38. CODESEG    ENDS
  39.     END    START
  40.